oldwd = getwd()
keep = ls()

#Set working directory
setwd('./data/county_elections')

#############################
#Make County Enlistment Data#
#############################

#make elections data
source('./make/make_election_panel.R')

#aggregate veterans to counties
if (use_restricted) {
  source('./make/make_county_enlistments.R')
}

#Add adjutant general data to county enlistment
source("./make/make_enlistment_use.R")



#########
#Cleanup#
#########

rm(list = setdiff(ls(), c(keep, 'keep')))
setwd(oldwd)